home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / examples / conflist.br < prev    next >
Text File  |  1998-05-24  |  548b  |  37 lines
  1. /* $VER: ConfList.br 1.0 (5.9.95)
  2.  * 
  3.  * Get conf list for a bbs.
  4.  */
  5.  
  6.     parse arg argument
  7.  
  8.     if(argument = '') then
  9.     do
  10.         say '$VER: ConfList.br V3.1 (10.08.94)'
  11.         say 'Template: BBSNAME/A'
  12.         exit
  13.     end
  14.  
  15.     if ~show('p', 'BBSREAD') then do
  16.         address command
  17.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  18.             "WaitForPort BBSREAD"
  19.     end
  20.     
  21.     address BBSREAD
  22.  
  23.     GETCONFLIST stem CONFLIST argument 
  24.     if(rc ~= 0) then 
  25.     do
  26.         say BBSREAD.LASTERROR
  27.         exit
  28.     end
  29.  
  30.     say 'Available conferences:'
  31.  
  32.     do i=1 to CONFLIST.COUNT
  33.         say ' ' || CONFLIST.i
  34.     end
  35.  
  36.     exit
  37.